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**F TLE®*1D**TUTAPE 


SUBROUTINE TUTAPE (LUN) 
Version: *v04-000' 


Ee 


PARRA RASAAAALALSAAAAALALAAAAAL ALAA SALES ERR A RAS ESE SALA A ES AREER RARER ESS SS 


33338 


Changed the overprint carriage control in the ‘format’ 
statements for use with ERF. 


v03-002 SARO1G0 Sharon A. Reynolds, 20-Jun-1983 
Changed the carriage control in the ‘format’ statements 
for use with ERF. 


Seticissse ssa: 


NOUS WN OO OONOUE WN 


C 
C 
C 
Ce 
Ce * 
7 C* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
8 C* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
SUF - ALL RIGHTS RESERVED. * 
* 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
pole C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Boe > TRANSFERRED. * 
® ® 
0018 C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0019 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Bose i. CORPORATION. * 
® 
it t4 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ot ES SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
® 
$058 C* * 
4 Ree afta eta ee eign San Seon ART ip eta ar hat lta a af 
0028 C 
ones C 
o0 : AUTHOR BRIAN PORTER CREATION DATE 5-0CT-1979 
0033 C Fucntional description: 
003 C 
st e4 : This module displays TU58 errors. 
Boas : Modified by: 
it C V03-004 SAR0O236 Sharon A, Reynolds. 28-Mar-1984 
44 : Changed the call to UCBSL_OWNUIC to ORBSL_OWNER. 
; v03-003 SARO130 Sharon A. Reynolds, 8-Sep-1983 
C 
C 
C 
C 
; 
C v03-001 SAROOS2 Sharon A. Reynolds. 13-Jun-1983 

H : Removed brief/cryptic support. 

5 C v02-004 BP0004 Brian Porter, 23-NOV-1981 

2 ; Minor edit. 

5 C v02-003 BP0003 Brian Porter, 05-NOV-1981 
Boe ' Added ‘device attention’ support. 


VAX=11 FORTRAN Pees Pa 
DISKSVMSMASTER: CERF .SRCITUTAPE .FOR; 1 
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-Sep-1984 00:16:59 VAX=11 FORTRAN V3.4-56 Pa 2 
4 382 838588 DISKSVMSMASTER: CERF. SRCITUTAPE .FOR: 1 ns 


0058 C v02-002 BP0002 Brian Porter 01-JUL=1981 
8028 ; Added call to LOGGER and DHEAD. Added DIAGNOSTIC_MODE. 
1 C v02-001 BP0001 Brian Porter, 19=JUL-1980 
¢ C Corrected Fortran format error when end packet has illegal 
» byte count. Removed call to UNUSED_BITS. 


INCLUDE ‘SRC$:MSGHDR.FOR /NOLIST' 


DATA OP_CODE /*OP CODE'/ 


CHARACTER*17 _ PBYTE_COUNT 
A PBYTE_COUNT 


~~ + { = 


1 INCLUDE "SRC$:DEVERR.FOR /NOLIST' 

0 

0228 BYTE LUN 

0229 BYTE CHD _PKT(Q:13) 

0 0 BYTE END~PKT(0:13) 

0 < INTEGER®4 FIELD 

0 INTEGER®4 RCSR 

0234 INTEGER®4 RBUF 

02 5 INTEGER®4 XCSR 

0236 INTEGER®4 XBUF 

92 7 INTEGER®4 COMPRESS4 

9 38 INTEGER®4 COMPRESSC 

0940 lLogical*1 diagnostic_mode 

O24¢ PARAMETER TIMEOUT = 96 

024 PARAMETER READ = 2 

0244 PARAMETER WRITE = 3 

0245 PARAMETER POSITION = 5 

0247 EQUIVALENCE (EMB$L_DV_REGSAV(0) ,XCSR) 

0248 EQUIVALENCE (EMBSL_DV-REGSAV(1) . XBUF ) 

0249 EQUIVALENCE (EMBSL_DV— EGSAV(¢) .RCSR) 

0250 EQUIVALENCE CEMBSL DV-REGSAV(3) .RBUF ) 

0251 EQUIVALENCE (EMB(98) ,CMD_PKT(O)S 

0252 EQUIVALENCE (EMB(1125 ,ENB_PKT(0)) 

0584 

0255 

0296 CHARACTER®14 —_UNIT_NUMBER FUN 
37 DATA —_- UNI T_NUMBER 7"UNIT NUMBER = '/ ' 

0 59 CHARACTER*11 _ UNUSED_BYTE 
60 DATA _ UNUSED_BYTE /"UNUSED BYTE'/ 

§ 6¢ CHARACTER®19 — CONTROL_PACKET 

9 63 DATA CONTROL_PACKET ~/'TU58 CONTROL PACKET'/ con 
65 CHARACTER®*14 — COMMAND_PACKET F 
66 DATA _ COMMAND_PACKET ~/"COMMAND PACKET"/ 

0 


NNNOAO 
m—O0® 


DAT /*PACKET BYTE COUNT'/ 


CHARACTER*7 —_—OP_CODE 
| 
| 


11 
TUTAPE I§-$e0-19 r 0:16:33 VAX=11 FORTRAN Pees 


Page 
DISKSVMSMASTER: CERF ..SRCJTUTAPE.FOR;1 


CHARACTER*15 SEQUENCE 10 
DATA SEQUENCE _LO 7"SEQUENCE LO, HI'/ 


CHARACTER*17  —BYTECOUNT_LO 
DATA BYTECOUNT_LO /*BYTE COUNT LO, HI'/ 


CHARACTER*19 BLOCK_LO 
DATA BLOCK_LO /*BLOCK NUMBER LO, HI'/ 
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8 
i CHARACTER®15 CHECKSUM_LO 
¢ DATA CHECKSUM_LO 7"CHECKSUM LO, HI'/ 
86 CHARACTER®*17 VIRCSR(6:7) 
Hf DATA VIRCSR(6) /"INTERRUPT ENABLE®'/ 
see DATA VIRCSR(7) /"RECEIVER DONE®'/ 
0290 CHARACTER*16 V2RCSR(11:11) 
794 DATA V2RCSR(11) /*RECEIVER ACTIVE®'/ 
$598 CHARACTER®#15 IRBUF (12:15) 
0294 DATA VIRBUF (12) /*PARITY ERROR*'/ 
0295 DATA VIRBUF (13) /"FRAMING ERROR*'/ 
0296 DATA VIRBUF (14) /"OVER=RUN ERROR*'/ 
F944 DATA VIRBUF (15) /"ERROR*®'/ 
0999 CHARACTER*6 V1XCSR(0:0) 
$300 DATA V1XCSR(O) /"BREAK®'/ 
0308 CHARACTER®18 V2xXCSR(6:7) 
030 DATA VExCSRG) /" INTERRUPT ENABLE*'/ 
Bape DATA V2xCSR(7) /"TRANSMITTER READY*'/ 
0306 CHARACTER*20 V10P_CODE(-1:12) 
0307 ATA VIOP_CODE(-13 =/" ILLEGAL FUNCTION®'/ 
0308 DATA V10P~ CODE (0) /"NO OPERATION®'/ 
0309 DATA V10P~ CODE (1) /"INITIALIZE®'/ 
0310 DATA v1 p~cOUE CG? /*READ®'/ 
0311 DATA V10P~ CODE (3) /*WRITE®'/ 
0 1 DATA V10P~ CODE (4) /"COMPARE*'/ 
1 DATA V10P~ CODE (5) /*POSITION®'/ 
14 DATA VIOP-CODE() /"ABORT#'/ 
15 DATA V10P~ CODE (7) /"DIAGNOSE®'/ 
1 DATA VIOP-CODE (8) /"GET STATUS*'/ 
1 DATA V10P~ CODE (9) /*SET STATUS*®'/ 
18 DATA VIOP“CODE(10) /*GET CHARACTERISTICS*'/ 
19 DATA VIOP-CODE(11)  /*SET CHARACTERISTICS*'/ 
9 DATA VIOP-CODE(12) /*ILLEGAL FUNCTION®'/ 
§ CHARACTER*16 V20P_CODE (63:65) 
DATA V20P_CODE(63) /*ILLEGAL OP CODE*'/ 
4 DATA V2OP-CODE(64) /"SEND END PACKET#'/ 
5 DATA V2OP_CODE(65) /"ILLEGAL OP CODE*'/ 
§ CHARACTER*10 MODIFIERCO: 0) 
3 DATA MODIFIER(O) /"DATACHECK®'/ 
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TUTAPE Sep-1984 2 99: i: 38 VAX=11 FORTRAN V¥3.4-56 Page 5 


if} -Sep-1984 DISKSVMSMASTER: CERF .SRCJTUTAPE.FOR; 1 
WRITE (LUN, 10) | 
10 FORMAT(/* °,T te! RCSR', T24,78.4) 
if (.not. diagnostic_mode) then 
CALL OUTPUT (LUN,RCSR,VIRCSR,6,6,7,'0") 
CALL OUTPUT (LUN,RCSR,V2RCSR,11,11,11,'0") 
endif 


ooooo 


BISARANLSSSLSARRAN LSSSS 


so 


CALL LINCHK (LUN,1) 


WRITEC(LUN, 15) RBUF 
15 FORMAT(’ §,18,*RBUF',124,78.4) 


if (.not. diagnostic_mode) then 
DO 19,1 = 12,15 

IF (JIAND(RBUF,2**1) .NE. 0) THEN 
CALL LINCHK (LUN,1) 


g 


10) 
1 WRITE(LUN, 18) VRBUE (1) 
ig 18 FORMAT(’ *, 140, "RECEIVE DATA *,A<COMPRESSC (VIRBUF(I))>) 
18 ENDIF 
i$ 19 CONTINUE 
18 endif 
18 CALL LINCHK (LUN,1) 
20 WRITECLUN,20) XCSR 
e120 FORMAT(’ °.18,"XCSR",124,78.4) 
5 if (.not. diagnostic_mode) then 
4 
5 CALL OUTPUT (LUN,XCSR,V1XCSR,0,0,0,"0") 


PRLRLLLLPLRLLLLLLLLLLLLLLLLLGOSE 


—_ OUTPUT (LUN,XCSR,V2XCSR,6,6,7,'0") 
else 


CALL LINCHK (LUN,1) 
PALSY alt 25) 


WN —O0Ono 


25 FORMAT(' §,740,"DIAGNOSTIC MODE") 
" endif 
CALL LINCHK (LUN,1) 
weirs (LUN, a 
9 30 FORMAT ( KBE, T24,78.4) 


if (.not. diagnostic_mode) then 
CALL LINCHK (LUN,3) 
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H11 
Meret aee MO ses NaeddSOASteR PERE SecaTUTAPE.FOR;1 ‘| 
IF (CMD.PKT(O) .NE. 2) THEN 


WRITE (LUN,40) 
40 FORMAT(/" *,*COMMAND PACKET HAS INVALID FLAG',/) 


DO 44,1 = 0,14 
CALL LINCHK (LUN,1) 


333333333388 


WRITE(LUN,42) CMD_PKT(I) 
42 FORMATC® Bs ery) 00¢ 
44 CONTINUE 

ELSE 

WRITE (LUN,45) 
45 FORMAT(/' *,*COMMAND MESSAGE PACKET',/) 


PAXAPEXEMMAANT IIIS BE 


WO OONAVULSWN —“OOOnNOUS 


CALL LINCHK (LUN,2) 


WRITECLUN,50) CMD _PKT( 2° SONTROL PACKET 
FORMAT(* *,T8,"FLAG',130,22.2,/,140,A19) 


CALL LINCHK (LUN,2) 
FIELD = LIBSEXTZV(0,8,CMD_PKT(1)) 
WRITE(LUN,55) PBYTE_COUNT,CMD_PKT(1),PBYTE_COUNT, 
1 BYTE COUNT (MAX(9,MIN(11.FIECD))) 
55 FORMAT(’ *,18,A17,130,22.0,/ 
1 1460,A17,A<COMPRESSC (BYTE_COUNT(MAX(9,MIN(11,FIELD))))>) 
CALL LINCHK (LUN,2) 
FIELD = LIBSEXTZV(0,8,CMD_PKT(2)) 
WRITE(LUN,60) OP_CODE GMD _PKT(2) .VIOP_CODE(MAX(=1,MIN(11 FIELD) )) 
60 FORMAT(’ ',18,A77130,22.2,/,14 
1 "FUNCTION = ',A<COMPRESSC (V1OP_CODE(MAX(=1,MIN(11,FIELD))))>) 
CALL LINCHK (LUN,1) 


WRITE(LUN,65) CMD_PKT(3) 
65 FORMAT(* §,78,OP"CODE MODIFIER',130,22.2) 


CALL OUTPUT (LUN, CMD_PKT(3) ,MODIFIER,0,0,0,'0") 
CALL LINCHK (LUN,2) 

FIELD = LIBSEXTZV(0,8,CMD_PKT(4)) 

WRITE(LUN,68) CMD _PKT(4) UNIT _NUMBER,FIELD 
FORMAT ( 
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68 0 T TT’, 130,22.27/ 
98 1 140,A14,1<COMPRESSS (FIELD)>,°.") 
500 CALL LINCHK (LUN,1) 


TUTAPE Tet so- 130? 90:16 VAX=-11 FORTRAN V3.4-56 Page 7 
“Sep-1984 14:2 DISKSVMSMASTER: CERF. .SRCJTUTAPE.FOR; 1 


WRITE(LUN,70) UNUSED BYTE, CMD_PKT(5) 
70 FORMATS TB,All, Fo" 12.8) 
CALL LINCHK (LUN,2) 


WRITE(LUN,75) SEQUENCE_LO,CMD_PKT(6) ,CMD_PKT(7) 
75 FORMAT(' §,78,A15, a5” 1-5: /,730,22.0) 


CALL LINCHK (LUN,2) 


WRITE(LUN,80) BYTECQUNT_LO,CMD_PKT(8) 
80 FORMATC 1 °18,A17, F30"72 #3) . 


Field='' 

F (CMD PKT(2) .€Q. READ 
2 CMD_PKT(2) .€Q. WRITE) THEN 
FIELD = LIBSEXTZV(0,16,CMD_PKT(8)) 


ENDIF 
WRITE (LUN, 85) CMD _PKT(9) FIELD 
85 FORMAT(' *,130,22.2, 


T 
1 Talorel Byte Count = ',I<COMPRESSG (FIELD)>,".") 
CALL LINCHK (LUN,2) 


WRITE(LUN,90) BLOCK to CHD PKT(10) 
90 FORMAT(' §,18,A19,130,2 


Field=* ° 
IF {~. PKT(2) .EQ. POSITION 
CAD _PKT(2) .EQ. READ 


— 
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44 & emp “PKT(2) .£Q. WRITE) THEN 

41 FIELD = LIBSEXTZV(0,16,CMD_PKT(10)) 

3 ENDIF 

544 WRITE(LUN,95) CMD_PKT(11) ,FIELD 

54595 FORMAT(® 30,2272, ef 

248 1 REQUESTED Lock = © 1<COMPRESS4 (FIELD)>,".") 
308 CALL LINCHK (LUN,2) 

559 WRITECL 19 ) CHECKSUM_LO,CMD_PKT(12),CMD_PKT(13) 
$5 NOC FORMAT PB ATS tSDe 7202; e130022.9)° 

558 

$54 

22? CALL LINCHK (LUN,3) 

389 IF (END_PKT(O) .NE. 2) THEN 
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Ibese -1984 00:16:59 

~3007} 382 90:38:38 
WRITE(LUN,105) 
FORMAT(/* *,*END PACKET HAS INVALID FLAG‘',/) 
DO 115,1 = 0,13 
CALL LINCHK (LUN,1) 
WRITEC(L 110) END_PKT(I]) 

ae 


FORMAT ( 0.22.2) 

CONTINUE 

ELSE 

WRITE(LUN,120) 

FORMAT(/" *,*END MESSAGE PACKET',/) 


CALL LINCHK (LUN,2) 


WRITE(LUN,125) END PKT(0) CONTROL PACKET 
FORMAT(’ §,18,"FLAG',130,22.2,/,140,A19) 


CALL LINCHK (LUN,2) 
FIELD = LIBSEXTZV(0,8,END_PKT(1)) 

WRITE(LUN,130) PBYTE_COUNT,END_PKT(1),PBYTE_COUNT, 

1 BYTE_COUNT(MAX(9 BINCII FIELB))) 

FORMATT' ',18,A17,130,Z2.0,/ 

1 T40,A17,A<COMPRESSC (BYTE_COUNT(MAX(9,MIN(11,FIELD))))>) 

CALL LINCHK (LUN,2) 

FIELD = LIBSEXTZV(0,8,END_PKT(2)) 

WRITE (LUN, 135) oP CODE END_PKT(2) ,V2O0P_CODE (MAX (63,MIN(65,FIELD))) 
FORMAT(’ *,18,A7,730,22. 

1 T40,A<COMPRESSC (V20P_ CODE (MAX(63,MIN(65,FIELD))))>) 

CALL LINCHK (LUN, 2) 


WRITE(LUN, 140) END PKT(3) 
FORMAT(' *,T8,"SUCTESS CODE',130,22.2) 


J=12 

DO 155.1 = 0,11 

IF (END_PKT(3) .€Q. VISUCCESS_CODE(1)) J = I 
CONTINUE 


WRITE(LUN, 160) V2SUCCESS CODE (J) 
FORMAT(* °,T40,A<COMPRESSC (V2SUCCESS_CODE(J))>) 


CALL LINCHK (LUN,2) 


VAX=11 FORTRAN 56 P 
DISKSVMSMASTER: CERF .SRCJTUTAPE .FOR;1 


Kk 11 
TUTAPE 16-Sep-1984 00:16: VAX=11 FORTRAN V3.4-56 P 9 
g-ge8- 138% 90:46:38 DISKSVMSMASTER: CERF, SRCITUTAPE.FOR: 1 re 
FIELD = LIBSEXTZV(0,8,END_PKT(4)) 
WRITE(LUN,170) END_PKT(4) ,UNIT_NUMBER, FIELD 
170 FORMATO TBS" UNIT™ 130,$3eb.70T60-A16. 
1 I<COMPRESS4 (FIELDS>,'.") 
CALL LINCHK (LUN,1) 


WRITE(LUN,175) UNUSED_BYTE,END_PKT(5) 
175 FORMATC® a WN beh ties . 


CALL LINCHK (LUN,2) 


WRITE(LUN,180) SEQUENCE_LO,END_PKT(6) ,END_PKT(7) 
180 FORMAT (' UT Wie tre -/,130,22.2). ~ 


CALL LINCHK (LUN,2) 

FIELD = LIBSEXTZV(0,16,END_PKT(8)) 

WRITE(LUN, 185) BYTECOUNT LO, END_PKT(8) .END_PKT(9) ,FIELD 
FORMAT(’ °,18,A17,130,22-0,/ 


3s 


> 
OOONOW 


FREESE SSSI SS SSS S OSS SSS SES 
BUFAEUNLSSOVONRN LS 


185 ° 130, 
1 130,22.2.140, "AYTES TRANSFERED = ',1<COMPRESS4 (FIELD)>,".") 

ste4 CALL LINCHK (LUN,2) 
0641 WRITE (LUN, 190) END_PKT(10) ,END_PKT(11) 
peeg 190 FORMAT(" *,1T8,"STATUS',130,22.2,/,130,22.2) 
ee) CALL OUTPUT (LUN, END_PKT(12) ,VISUM_STATUS,4,4,7,'0') 
bees CALL LINCHK (LUN,2) 
0648 WRITE (LUN, 195) CHECKSUM_LO,END_PKT(12) ,END_PKT(13) 
0649 195 FORMAT(* ',18,A15,130,22.2,/,130,22.e) 
0650 ENDIF 
0651 endif 
8636 
4 call Linchk (lun,1) 
bees write(lun,200) 
8628 200 format(* *,:) 
0659 if Cemb$Sw_hd_entry .ne. 98) then 

0 call ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 


call ucb$b_ertmax (lun,emb$b_dv_ertmax) 
endif 


Mew 


ase 


call orb$l_owner (lun,emb$l_dv_ownuic) 
call ucb$l_char (lun,emb$l_dv_char) 
call ucb$w_sts (lun,emb$w_dv_sts) 


00¢ 
00¢ 
00¢ 
001 
001 
991 

1 
001 
001 
001 
001 
001 
001 
005 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00¢ 
00: 
003 
003 
003 
003 
003 
00: 
00: 
00: 
00: 
004 
004 
004 
004 
004 
004 
004 
004 
004 
: 
00 
00! 


SSeEee 


~N 


call ucb$l_opcnt (lun,emb$l_dv_opcnt) 


diciieisianieneome = 
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Been 8Re Fee 8s eee WG RRS REN. Heat eocarurape.ror:1 
067 00! 
O87 call ucb$wlerrcnt (lun,emb$w_dv_errcnt) 
75 if Cemb$w_hd_entry .ne. 98) then 
Ror? -hd_entry e's 
a call ucb$l_media (lLun,emb$l_dv_media) sts 
067 call Linchk (lun,1) 00¢ 
0680 00¢ 
eed write(lun,200) By 
Oe8s call tutape_qio (lun,emb$w_dv_ func) Bo 
( 


00; 


0685 call irp$w bent (lun,emb$w_dv_bcnt) 

0687 call irp$Sw_boff (Lun,emb$w_dv_boff) 

494 call irp$l_pid (Lun,emb$l_dv_rapid) 

0691 call irp$q_iosb (lun,emb$l_dv_iosb1) 
endif 


RETURN 
END 


PROGRAM SECTIONS 


Name Bytes Attributes 
0 SCODE 3247 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 906 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
§ SLOCAL 2008 PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
EMB 512 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 6673 


ENTRY POINTS 
Address Type Name 


0-00000000 TUTAPE 
VARIABLES 
Address Type Name Address Type Name 


0000309 CHAR BYTECOUNT_LO 
33 A4 CHAR COMMAND PACKET 


-OO0003EA CHAR BLOCK_LO KEKE 

77, L*l DIAGNOSTIC _MODE 

19 Le] EMBSB_DV_ERTCNT 
01D 


oe 
salts 
Cran 
2235 
m ox 
Se2e 
BeSz% 
vor 
a 
moa > 
zara 
Zam 
Ea 
#00686 8 


~0000003A L*1 EMBSB_-DV"SLAVE 00 


_———————————————— 


m 11 
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1g- 


owaodao x.2Zze - <« 
“EO Z@Ou Sw Zz w 
eeeeeeees => 
>>>>>>>>02 So 
aeancananaaat Vv 
eeeveeeesees ‘2 
JJ BBBs uw 4 
PAPAAAARHAAA aren 
@OOOOoOoOo 2>uV--D 
(=a 3 44 4 4 5 2@Oc2Zz@ 
se IO Or 
a =< « 
wwe eeueunuinias es “a7 a 
eee eTerr ee eTtezre 
Os as 8 CL) Ot os ot ot ot Le 


ar i St Ot 


CODE 
OF 


(eSTveTuerverecseegeelecleulsciup.) 


Twas reueunitls 
eee eeeeee eet 
dS Od Od Od Ot Dad Od Od Od Od CD 


AR OP 
I*4 RB 


Bytes Dimensions 


Address Type Name 


Cn Ce af 
aa TT Oem UN OM nen 
Ld 


oe 28 oe CO my 08 COR ENS oe oe oe cof hem ce oe 


a a ee ee ee ee ee ee ee 


-TNOOTOOCOsUNVODOOO 
Neer N KK OOM We OM 
was N ™N 


REGSAV 
US 
CODE 


T 


PKT 
SUCCESS 
xCSR 


oP 
RC 


tad 
a 
o 
~~ 
-_ ; oi 
” 
an 
a ww 
vw ~ = 
Vv 
=) 
” 
- 
> 


CHAR BYTE 

Ll CMD_ 

Le] ENB 

1*4 EMBSL 

CHAR V1XCS 
— CHAR V 


1EA CHAR V1SUM 
74 «CHAR V 


Label 


Address 


Label 


Address 


Label 


Address 


Label 


N11 
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97900-1382 99:38:36 ST EKSVMSRASTEN: FERE SRC ITUTAPE.FOR:1 ” 
FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name Type Name Type Name Type Name 


1*4 COMPRESS 1*4 COMPRE FRCTOF IRP$L_PID IRP$Q_10SB 
RP$W_BCNT IRPS$W_ I LINCHK ORBSL-OWNER 
UTAPE_Q10 UCB$B UCBSL_CHAR UCBSL_MEDIA UCBSL_OPCNT 


UCBSW_ERRCNT 


8833333338 


a. 


- 


a oe 


SSS8SSSSSSSSSsSsss 


SSSSSSSSSSSSSSSSSSS 


12 
-Sep-1984 00:16:59 VAX=11 FORTRAN V3.4-56 P 13 
met 138589 DISKSVMSMASTER: LERF.SRCITUTAPE. FOR: 1 tage: 


0001 
34 
sie Subroutine TUTAPE_QI0 (Lun,emb$w_dv_ func) 
464 include ‘src$:qiocommon.for /nolist' 
0271 byte Lun 
i integer*2 emb$w_dv_ func 
0274 ee 
: integers4 qiocode(0:1,0:63) 
0977 
0278 
0279 
8 + if (qiocode(0,0) .eq. 0) then 
0983 qiocode(1,09) = Xloc(io$_search) 
0984 qiocode(1,11) = Zloc(io$_writepblk) 
oses qiocode(1,12) = ZXloc(io$_readpblk) 
ih 4 qiocode(1,26) = Xloc(io$_setchar) 
Bsay qiocode(1,27) = %loc(io$_sensechar) 
0998 qiocode(1,29) = Xloc(io$_diagnose) 
BSoe qiocode(1,32) = Zloc(io$_writelblk) 
0996 qiocode(1,33) = Xloc(io$_readlblk) 
aSo6 qiocode(1,35) = Xloc(io$_setmode) 
Bene qiocode(1,39) = Xloc(io$_sensemode) 
4 qiocode(1,48) = Zloc(io$_writevblk) 
0304 qiocode(1,49) = Xloc(io$_readvblk) 
$306 qiocode(1,50) = &loc(io$_access* 
ie qiocode(1,51) = Zloc(io$_create) 
319 qiocode(1,52) = Xloc(io$_deaccess) 
318 qiocode(1,53) = Zloc(io$_delete) 
314 qiocode(1,54) = Zloc(io$_modify) 
i qiocode(1,56) = Zloc(io$_acpcontrol) | 
3 qiocode(1,57) = Zloc(io$_mount) | 
20 do 10,4 = 0,63 
| 
| 


1 
TUTAPE_Q10 i§-Sep 
“Sep 


0321 
8 § qiocode(0,i) = 33 
0 ¢ if (qiocode(1,i) .eq. 0) then 
iocode(1,i1) = Xloc(qio_string) 
0 ? endit _— . 
6 9 10 cont inue 
8 , endif 
8 ¢ call irp$w func (lun,emb$w_dv_ func, 
O32 1 qiocode(0, ibSextzv(0,6,embSw_dv_func))) 
tet return 
See 
0337 end 
PROGRAM SECTIONS 
Name Bytes Attributes 
0 SCODE 225 PIC CON REL LCL SHR 
1 SPDATA 8 PIC CON REL LCL SHR 
; SLOCAL 548 PIC CON REL LCL NOSHR 
QIOCOMMON 1247 PIC OVR REL GBL S$ 
Total Space Allocated 2028 
ENTRY POINTS 
Address Type Name 
0-00000000 TUTAPE_Q10 
VARIABLES 
Address Type Name Address Type 
EMBSW_DV_FUNC mt 4 1*4 
il -0000034D CHAR 
10$_ACPCONTROL - 4 CHAR 
10$_CLEAN -000 CHAR 
IO$_DEACCESS - CHAR 
10$_DIAGNOS - 65 CHAR 
I0$_DSE - 0 CHAR 
10$—F ORMAT - 1 CHAR 
10$_LOADMCODE - Al CHAR 
10$_MOUNT - 00 CHAR 
10$_OF FSET - EB CHAR 
10$_QSTOP - 3 CHAR 
10$_READCSR - 9 CHAR 


-1984 00:16:59 VAX=11 FORTRAN V3.4-56 
71384 238538 DISKSVMSMASTER:L 


EXE RD NOWRT LONG 
NOEXE RD NOWRT LONG 
EXE RD WRT LONG 
XE RD WRT LONG 


Pp 
ERF .SRCJTUTAPE .FOR; 1 


age 14 


Dd 12 
TUTAPE_Q10 16-Sep-1984 00:16:59 
87900-1382 90:38:88 
CHAR 10$_READLBLK - 13— CHAR I0$_READPBLK 
HAR IO$_READPRESET - 195 CHAR IO$_READTRACKD 
CHAR 10$_READVBLK - 45A CHAR 1 tlle 
HAR I0$_READWTHXBUF - 04D CHAR IO$_RECAL 
CHAR I0$_RELEASE - 1AB CHAR IO$_REREADN 
CHAR IOS_REREADP - CA CHAR IO$_RETCENTER 
HAR I0$_REWIND - 9 CHAR IO$S_REWINDOFF 
CHAR I0$_SEARCH - 4 CHAR I0$_SEEK 
CHAR 10$_SENSECHAR - 3 CHAR I0$_SENSEMODE 
CHAR IO$_SETCHAR - B8 CHAR IO$S_SETCLOCK 
CHAR I0$_SETCLOCKP DD CHAR IO0$_SETMODE 
CHAR IO$_SKIPFILE - $38 FA CHAR I0$_SKIPRECORD 
CHAR 10$_SPACEF ILE - OE CHAR I10$_SPACERECORD 
CHAR IO$S_STARTDATA - 44 Pd CHAR IO$_STARTDATAP 
CHAR 10$_STARTMPROC -Q000020F CHAR IOS_STARTSPNDL 
CHAR 10$_STOP ~Rop ORT Te CHAR I0$_UNLOAD 
CHAR I0$_WRITEBUFNCRC “QOOOO11E CHAR IOS_WRITECHECK 
CHAR IO$_WRITECHECKH - 464 FF CHAR IO$_WRITECSR 
CHAR I0$_WRITEHEAD “Q00002A2 CHAR IO$_WRITELBLK 
CHAR 10$_WRITEMARK -00000314 CHAR [O$_WRITEOF 
HAR I0$_WRITEPBLK - 44d 9 CHAR IOS_WRITERET 
CHAR IO$_WRITETRACKD -0000 3 8 CHAR I10$_WRITEVBLK 
CHAR 10$_WRITEWTHBUF -00000 CHAR I1O$_WRTTMKR 
L*1 LUN” =000004A1 CHAR QIO_STRING 
ARRAYS 
Address Type Name Bytes Dimensions 
2-00000000 I*4 QIOCODE 512 (0:1, 0:63) 
LABELS 
Address’ Label 
Re 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name 
IRPS$SW_FUNC 


Type Name 
I*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:TUTAPE/OBJ=O0BJ$:TUTAPE MSRC$:TUTAPE 


/ CHE CK= (NOBOUNDS , OVERF LOW, NOUNDERF LOW) 
/DEBUG= (NOS YMBOL S$, TRACEBACK) 
NDARD=(NOSYNT ORM) 


E MAP) 
/NOG_FLOATING 714 /OPTIMIZE /WARNINGS /NOD LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


VAX=11 FORTRAN 
DISKSVMSMASTER : 


LeaR. 


-56 


SRCITUTAPE .FOR; 1 
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COMPILATION STATISTICS 


Run Time: 3 seconds 


Page Faults: 


11. 4 
Elapsed Time: Se seconds 
Dynamic Memory: 9 


009 
009. 
009: 
009: 
009 
009) 
009' 


COoooococeo 


2 tee 
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